/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / develop™ Technical Journal / develop Issue 26 code / CustomAttribute.sit / CustomAttribute / NetscapeLink.c

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 4e 65 74 73 63 61 | 70 65 4c 69 6e 6b 2e 63 |..Netsca|peLink.c|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 57 49 | 45 01 00 00 00 00 00 00 |.TEXTCWI|E.......|
|00000050| 00 00 00 00 00 11 a0 00 | 00 01 c6 ad 77 67 ca ad |........|....wg..|
|00000060| 77 67 ca 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |wg......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 6c 5b 00 00 |........|....l[..|
|00000080| 23 69 6e 63 6c 75 64 65 | 20 3c 45 50 50 43 2e 68 |#include| <EPPC.h|
|00000090| 3e 0d 23 69 6e 63 6c 75 | 64 65 20 3c 41 70 70 6c |>.#inclu|de <Appl|
|000000a0| 65 45 76 65 6e 74 73 2e | 68 3e 0d 23 69 6e 63 6c |eEvents.|h>.#incl|
|000000b0| 75 64 65 20 3c 41 6c 69 | 61 73 65 73 2e 68 3e 0d |ude <Ali|ases.h>.|
|000000c0| 23 69 6e 63 6c 75 64 65 | 20 3c 73 74 72 69 6e 67 |#include| <string|
|000000d0| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 4d 65 |.h>.#inc|lude <Me|
|000000e0| 6d 6f 72 79 2e 68 3e 0d | 23 69 6e 63 6c 75 64 65 |mory.h>.|#include|
|000000f0| 20 3c 54 65 78 74 55 74 | 69 6c 73 2e 68 3e 0d 23 | <TextUt|ils.h>.#|
|00000100| 69 6e 63 6c 75 64 65 20 | 3c 53 74 72 69 6e 67 73 |include |<Strings|
|00000110| 2e 68 3e 0d 0d 23 69 6e | 63 6c 75 64 65 20 22 49 |.h>..#in|clude "I|
|00000120| 73 41 70 70 52 75 6e 6e | 69 6e 67 2e 68 22 0d 0d |sAppRunn|ing.h"..|
|00000130| 76 6f 69 64 20 74 65 73 | 74 4e 65 74 73 63 61 70 |void tes|tNetscap|
|00000140| 65 28 76 6f 69 64 29 3b | 0d 0d 73 74 61 74 69 63 |e(void);|..static|
|00000150| 20 41 45 44 65 73 63 20 | 74 68 65 41 64 64 72 65 | AEDesc |theAddre|
|00000160| 73 73 44 65 73 63 3b 0d | 0d 73 74 61 74 69 63 20 |ssDesc;.|.static |
|00000170| 42 6f 6f 6c 65 61 6e 20 | 46 69 6e 64 5f 4e 65 74 |Boolean |Find_Net|
|00000180| 53 63 61 70 65 28 76 6f | 69 64 29 3b 0d 0d 73 74 |Scape(vo|id);..st|
|00000190| 61 74 69 63 20 70 61 73 | 63 61 6c 20 42 6f 6f 6c |atic pas|cal Bool|
|000001a0| 65 61 6e 20 4d 79 46 69 | 6c 74 65 72 28 4c 6f 63 |ean MyFi|lter(Loc|
|000001b0| 61 74 69 6f 6e 4e 61 6d | 65 50 74 72 20 6c 6f 63 |ationNam|ePtr loc|
|000001c0| 61 74 69 6f 6e 4e 61 6d | 65 2c 20 50 6f 72 74 49 |ationNam|e, PortI|
|000001d0| 6e 66 6f 50 74 72 20 74 | 68 65 50 6f 72 74 49 6e |nfoPtr t|hePortIn|
|000001e0| 66 6f 29 3b 0d 73 74 61 | 74 69 63 20 70 61 73 63 |fo);.sta|tic pasc|
|000001f0| 61 6c 20 42 6f 6f 6c 65 | 61 6e 20 4d 79 49 64 6c |al Boole|an MyIdl|
|00000200| 65 28 45 76 65 6e 74 52 | 65 63 6f 72 64 20 2a 74 |e(EventR|ecord *t|
|00000210| 68 65 45 76 65 6e 74 2c | 20 6c 6f 6e 67 20 2a 73 |heEvent,| long *s|
|00000220| 6c 65 65 70 54 49 6d 65 | 2c 20 52 67 6e 48 61 6e |leepTIme|, RgnHan|
|00000230| 64 6c 65 20 2a 6d 6f 75 | 73 65 52 67 6e 29 3b 0d |dle *mou|seRgn);.|
|00000240| 73 74 61 74 69 63 20 42 | 6f 6f 6c 65 61 6e 20 4f |static B|oolean O|
|00000250| 70 65 6e 4e 65 74 73 63 | 61 70 65 28 76 6f 69 64 |penNetsc|ape(void|
|00000260| 29 3b 0d 73 74 61 74 69 | 63 20 4f 53 45 72 72 20 |);.stati|c OSErr |
|00000270| 43 6c 6f 73 65 4e 65 74 | 73 63 61 70 65 28 76 6f |CloseNet|scape(vo|
|00000280| 69 64 29 3b 0d 73 74 61 | 74 69 63 20 76 6f 69 64 |id);.sta|tic void|
|00000290| 20 41 63 74 69 76 61 74 | 65 4e 65 74 53 63 61 70 | Activat|eNetScap|
|000002a0| 65 28 76 6f 69 64 29 3b | 0d 0d 73 74 61 74 69 63 |e(void);|..static|
|000002b0| 20 42 6f 6f 6c 65 61 6e | 20 6f 70 65 6e 65 64 20 | Boolean| opened |
|000002c0| 3d 20 66 61 6c 73 65 3b | 0d 0d 2f 2a 2a 2a 2a 2a |= false;|../*****|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 2a 0d |********|*****.*.|
|00000330| 2a 0d 2a 09 09 09 09 09 | 09 50 55 42 4c 49 43 20 |*.*.....|.PUBLIC |
|00000340| 46 55 4e 43 54 49 4f 4e | 53 0d 2a 0d 2a 0d 2a 2a |FUNCTION|S.*.*.**|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003b0| 2f 0d 0d 42 6f 6f 6c 65 | 61 6e 20 4f 70 65 6e 55 |/..Boole|an OpenU|
|000003c0| 52 4c 28 63 68 61 72 20 | 2a 75 72 6c 29 3b 09 2f |RL(char |*url);./|
|000003d0| 2f 20 67 6f 20 74 6f 20 | 74 68 65 20 70 61 67 65 |/ go to |the page|
|000003e0| 20 73 70 65 63 69 66 69 | 65 64 20 62 79 20 74 68 | specifi|ed by th|
|000003f0| 65 20 75 72 6c 0d 0d 76 | 6f 69 64 20 53 68 6f 77 |e url..v|oid Show|
|00000400| 46 69 6c 65 28 63 68 61 | 72 20 2a 6e 61 6d 65 29 |File(cha|r *name)|
|00000410| 3b 09 2f 2f 20 68 61 76 | 65 20 6e 65 74 73 63 61 |;.// hav|e netsca|
|00000420| 70 65 20 73 68 6f 77 20 | 74 68 65 20 66 69 6c 65 |pe show |the file|
|00000430| 20 77 69 74 68 20 74 68 | 65 20 6e 61 6d 65 20 28 | with th|e name (|
|00000440| 6d 61 79 20 6c 61 75 6e | 63 68 20 68 65 6c 70 65 |may laun|ch helpe|
|00000450| 72 20 61 70 70 73 29 0d | 0d 0d 42 6f 6f 6c 65 61 |r apps).|..Boolea|
|00000460| 6e 20 4f 70 65 6e 55 52 | 4c 28 63 68 61 72 20 2a |n OpenUR|L(char *|
|00000470| 6e 61 6d 65 29 0d 7b 0d | 09 41 70 70 6c 65 45 76 |name).{.|.AppleEv|
|00000480| 65 6e 74 09 74 68 65 41 | 70 70 6c 65 45 76 65 6e |ent.theA|ppleEven|
|00000490| 74 2c 20 74 68 65 52 65 | 70 6c 79 3b 0d 09 4f 53 |t, theRe|ply;..OS|
|000004a0| 45 72 72 09 09 65 72 72 | 3b 0d 0d 09 69 66 20 28 |Err..err|;...if (|
|000004b0| 46 69 6e 64 5f 4e 65 74 | 53 63 61 70 65 28 29 20 |Find_Net|Scape() |
|000004c0| 3d 3d 20 66 61 6c 73 65 | 29 0d 09 09 72 65 74 75 |== false|)...retu|
|000004d0| 72 6e 20 66 61 6c 73 65 | 3b 0d 09 09 0d 09 09 09 |rn false|;.......|
|000004e0| 09 0d 09 65 72 72 20 3d | 20 41 45 43 72 65 61 74 |...err =| AECreat|
|000004f0| 65 41 70 70 6c 65 45 76 | 65 6e 74 20 28 27 57 57 |eAppleEv|ent ('WW|
|00000500| 57 21 27 2c 27 4f 55 52 | 4c 27 2c 20 26 74 68 65 |W!','OUR|L', &the|
|00000510| 41 64 64 72 65 73 73 44 | 65 73 63 2c 0d 09 09 09 |AddressD|esc,....|
|00000520| 09 09 09 09 20 6b 41 75 | 74 6f 47 65 6e 65 72 61 |.... kAu|toGenera|
|00000530| 74 65 52 65 74 75 72 6e | 49 44 2c 20 6b 41 6e 79 |teReturn|ID, kAny|
|00000540| 54 72 61 6e 73 61 63 74 | 69 6f 6e 49 44 2c 20 26 |Transact|ionID, &|
|00000550| 74 68 65 41 70 70 6c 65 | 45 76 65 6e 74 29 3b 0d |theApple|Event);.|
|00000560| 09 09 09 09 09 09 09 09 | 0d 09 09 0d 09 65 72 72 |........|.....err|
|00000570| 20 3d 20 41 45 50 75 74 | 50 61 72 61 6d 50 74 72 | = AEPut|ParamPtr|
|00000580| 28 26 74 68 65 41 70 70 | 6c 65 45 76 65 6e 74 2c |(&theApp|leEvent,|
|00000590| 20 6b 65 79 44 69 72 65 | 63 74 4f 62 6a 65 63 74 | keyDire|ctObject|
|000005a0| 2c 20 74 79 70 65 43 68 | 61 72 2c 20 6e 61 6d 65 |, typeCh|ar, name|
|000005b0| 2c 20 73 74 72 6c 65 6e | 28 6e 61 6d 65 29 29 3b |, strlen|(name));|
|000005c0| 0d 09 09 0d 09 65 72 72 | 20 3d 20 41 45 53 65 6e |.....err| = AESen|
|000005d0| 64 28 26 74 68 65 41 70 | 70 6c 65 45 76 65 6e 74 |d(&theAp|pleEvent|
|000005e0| 2c 20 26 74 68 65 52 65 | 70 6c 79 2c 20 0d 09 09 |, &theRe|ply, ...|
|000005f0| 09 09 6b 41 45 57 61 69 | 74 52 65 70 6c 79 2c 6b |..kAEWai|tReply,k|
|00000600| 41 45 4e 6f 72 6d 61 6c | 50 72 69 6f 72 69 74 79 |AENormal|Priority|
|00000610| 2c 20 6b 4e 6f 54 69 6d | 65 4f 75 74 2c 0d 09 09 |, kNoTim|eOut,...|
|00000620| 09 09 4e 65 77 41 45 49 | 64 6c 65 50 72 6f 63 28 |..NewAEI|dleProc(|
|00000630| 4d 79 49 64 6c 65 29 2c | 20 4e 65 77 41 45 46 69 |MyIdle),| NewAEFi|
|00000640| 6c 74 65 72 50 72 6f 63 | 28 4d 79 46 69 6c 74 65 |lterProc|(MyFilte|
|00000650| 72 29 29 3b 0d 09 0d 09 | 69 66 28 20 65 72 72 20 |r));....|if( err |
|00000660| 3d 3d 20 6e 6f 45 72 72 | 20 29 0d 09 09 72 65 74 |== noErr| )...ret|
|00000670| 75 72 6e 20 74 72 75 65 | 3b 0d 09 65 6c 73 65 0d |urn true|;..else.|
|00000680| 09 09 72 65 74 75 72 6e | 20 66 61 6c 73 65 3b 09 |..return| false;.|
|00000690| 09 09 0d 7d 0d 0d 76 6f | 69 64 20 53 68 6f 77 46 |...}..vo|id ShowF|
|000006a0| 69 6c 65 28 63 68 61 72 | 20 2a 6e 61 6d 65 29 0d |ile(char| *name).|
|000006b0| 7b 0d 09 41 70 70 6c 65 | 45 76 65 6e 74 09 74 68 |{..Apple|Event.th|
|000006c0| 65 41 70 70 6c 65 45 76 | 65 6e 74 2c 20 74 68 65 |eAppleEv|ent, the|
|000006d0| 52 65 70 6c 79 3b 0d 09 | 4f 53 45 72 72 09 09 65 |Reply;..|OSErr..e|
|000006e0| 72 72 3b 0d 09 41 6c 69 | 61 73 48 61 6e 64 6c 65 |rr;..Ali|asHandle|
|000006f0| 20 61 6c 69 61 73 20 3d | 20 6e 69 6c 3b 0d 09 46 | alias =| nil;..F|
|00000700| 53 53 70 65 63 20 66 73 | 73 3b 0d 09 73 68 6f 72 |SSpec fs|s;..shor|
|00000710| 74 20 76 52 65 66 4e 75 | 6d 3b 0d 09 63 68 61 72 |t vRefNu|m;..char|
|00000720| 20 70 73 74 72 5b 32 35 | 36 5d 3b 0d 09 0d 09 09 | pstr[25|6];.....|
|00000730| 0d 09 69 66 20 28 46 69 | 6e 64 5f 4e 65 74 53 63 |..if (Fi|nd_NetSc|
|00000740| 61 70 65 28 29 20 3d 3d | 20 66 61 6c 73 65 29 0d |ape() ==| false).|
|00000750| 09 09 72 65 74 75 72 6e | 3b 0d 09 09 0d 09 09 09 |..return|;.......|
|00000760| 09 0d 09 65 72 72 20 3d | 20 41 45 43 72 65 61 74 |...err =| AECreat|
|00000770| 65 41 70 70 6c 65 45 76 | 65 6e 74 20 28 27 57 57 |eAppleEv|ent ('WW|
|00000780| 57 21 27 2c 27 53 48 57 | 4c 27 2c 20 26 74 68 65 |W!','SHW|L', &the|
|00000790| 41 64 64 72 65 73 73 44 | 65 73 63 2c 0d 09 09 09 |AddressD|esc,....|
|000007a0| 09 09 09 09 20 6b 41 75 | 74 6f 47 65 6e 65 72 61 |.... kAu|toGenera|
|000007b0| 74 65 52 65 74 75 72 6e | 49 44 2c 20 6b 41 6e 79 |teReturn|ID, kAny|
|000007c0| 54 72 61 6e 73 61 63 74 | 69 6f 6e 49 44 2c 20 26 |Transact|ionID, &|
|000007d0| 74 68 65 41 70 70 6c 65 | 45 76 65 6e 74 29 3b 0d |theApple|Event);.|
|000007e0| 09 09 09 09 09 09 09 09 | 0d 09 0d 09 47 65 74 56 |........|....GetV|
|000007f0| 6f 6c 28 6e 69 6c 2c 20 | 26 76 52 65 66 4e 75 6d |ol(nil, |&vRefNum|
|00000800| 29 3b 0d 09 73 74 72 63 | 70 79 28 70 73 74 72 2c |);..strc|py(pstr,|
|00000810| 20 6e 61 6d 65 29 3b 0d | 09 63 32 70 73 74 72 28 | name);.|.c2pstr(|
|00000820| 70 73 74 72 29 3b 0d 09 | 0d 09 65 72 72 20 3d 20 |pstr);..|..err = |
|00000830| 46 53 4d 61 6b 65 46 53 | 53 70 65 63 28 20 76 52 |FSMakeFS|Spec( vR|
|00000840| 65 66 4e 75 6d 2c 20 30 | 2c 20 28 53 74 72 69 6e |efNum, 0|, (Strin|
|00000850| 67 50 74 72 29 70 73 74 | 72 2c 20 26 66 73 73 29 |gPtr)pst|r, &fss)|
|00000860| 3b 0d 09 65 72 72 20 3d | 20 4e 65 77 41 6c 69 61 |;..err =| NewAlia|
|00000870| 73 28 6e 69 6c 2c 20 26 | 66 73 73 2c 20 26 61 6c |s(nil, &|fss, &al|
|00000880| 69 61 73 29 3b 0d 09 09 | 09 0d 09 65 72 72 20 3d |ias);...|...err =|
|00000890| 20 41 45 50 75 74 50 61 | 72 61 6d 50 74 72 28 26 | AEPutPa|ramPtr(&|
|000008a0| 74 68 65 41 70 70 6c 65 | 45 76 65 6e 74 2c 20 6b |theApple|Event, k|
|000008b0| 65 79 44 69 72 65 63 74 | 4f 62 6a 65 63 74 2c 20 |eyDirect|Object, |
|000008c0| 74 79 70 65 41 6c 69 61 | 73 2c 20 26 61 6c 69 61 |typeAlia|s, &alia|
|000008d0| 73 2c 20 0d 09 09 09 09 | 09 09 09 47 65 74 48 61 |s, .....|...GetHa|
|000008e0| 6e 64 6c 65 53 69 7a 65 | 28 28 48 61 6e 64 6c 65 |ndleSize|((Handle|
|000008f0| 29 61 6c 69 61 73 29 29 | 3b 0d 09 0d 09 65 72 72 |)alias))|;....err|
|00000900| 20 3d 20 41 45 53 65 6e | 64 28 26 74 68 65 41 70 | = AESen|d(&theAp|
|00000910| 70 6c 65 45 76 65 6e 74 | 2c 20 26 74 68 65 52 65 |pleEvent|, &theRe|
|00000920| 70 6c 79 2c 20 0d 09 09 | 09 09 6b 41 45 57 61 69 |ply, ...|..kAEWai|
|00000930| 74 52 65 70 6c 79 2c 6b | 41 45 4e 6f 72 6d 61 6c |tReply,k|AENormal|
|00000940| 50 72 69 6f 72 69 74 79 | 2c 20 6b 4e 6f 54 69 6d |Priority|, kNoTim|
|00000950| 65 4f 75 74 2c 0d 09 09 | 09 09 4e 65 77 41 45 49 |eOut,...|..NewAEI|
|00000960| 64 6c 65 50 72 6f 63 28 | 4d 79 49 64 6c 65 29 2c |dleProc(|MyIdle),|
|00000970| 20 4e 65 77 41 45 46 69 | 6c 74 65 72 50 72 6f 63 | NewAEFi|lterProc|
|00000980| 28 4d 79 46 69 6c 74 65 | 72 29 29 3b 0d 7d 0d 0d |(MyFilte|r));.}..|
|00000990| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|000009a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009f0| 2a 2a 2a 0d 2a 0d 2a 0d | 2a 09 09 09 09 09 09 50 |***.*.*.|*......P|
|00000a00| 55 42 4c 49 43 20 46 55 | 4e 43 54 49 4f 4e 53 0d |UBLIC FU|NCTIONS.|
|00000a10| 2a 0d 2a 0d 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*.*.****|********|
|00000a20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a70| 2a 2a 2a 2a 2a 2a 2f 0d | 0d 73 74 61 74 69 63 20 |******/.|.static |
|00000a80| 70 61 73 63 61 6c 20 42 | 6f 6f 6c 65 61 6e 20 4d |pascal B|oolean M|
|00000a90| 79 46 69 6c 74 65 72 28 | 4c 6f 63 61 74 69 6f 6e |yFilter(|Location|
|00000aa0| 4e 61 6d 65 50 74 72 20 | 6c 6f 63 61 74 69 6f 6e |NamePtr |location|
|00000ab0| 4e 61 6d 65 2c 20 50 6f | 72 74 49 6e 66 6f 50 74 |Name, Po|rtInfoPt|
|00000ac0| 72 20 74 68 65 50 6f 72 | 74 49 6e 66 6f 29 0d 7b |r thePor|tInfo).{|
|00000ad0| 0d 09 72 65 74 75 72 6e | 20 74 72 75 65 3b 0d 7d |..return| true;.}|
|00000ae0| 0d 0d 73 74 61 74 69 63 | 20 70 61 73 63 61 6c 20 |..static| pascal |
|00000af0| 42 6f 6f 6c 65 61 6e 20 | 4d 79 49 64 6c 65 28 45 |Boolean |MyIdle(E|
|00000b00| 76 65 6e 74 52 65 63 6f | 72 64 20 2a 74 68 65 45 |ventReco|rd *theE|
|00000b10| 76 65 6e 74 2c 20 6c 6f | 6e 67 20 2a 73 6c 65 65 |vent, lo|ng *slee|
|00000b20| 70 54 49 6d 65 2c 20 52 | 67 6e 48 61 6e 64 6c 65 |pTIme, R|gnHandle|
|00000b30| 20 2a 6d 6f 75 73 65 52 | 67 6e 29 0d 7b 0d 09 72 | *mouseR|gn).{..r|
|00000b40| 65 74 75 72 6e 20 66 61 | 6c 73 65 3b 0d 7d 0d 0d |eturn fa|lse;.}..|
|00000b50| 0d 73 74 61 74 69 63 20 | 42 6f 6f 6c 65 61 6e 20 |.static |Boolean |
|00000b60| 46 69 6e 64 5f 4e 65 74 | 53 63 61 70 65 28 76 6f |Find_Net|Scape(vo|
|00000b70| 69 64 29 0d 7b 0d 09 50 | 72 6f 63 65 73 73 53 65 |id).{..P|rocessSe|
|00000b80| 72 69 61 6c 4e 75 6d 62 | 65 72 20 74 61 72 67 65 |rialNumb|er targe|
|00000b90| 74 50 53 4e 20 3b 0d 09 | 0d 09 50 72 6f 63 65 73 |tPSN ;..|..Proces|
|00000ba0| 73 49 6e 66 6f 52 65 63 | 20 09 74 61 72 67 65 74 |sInfoRec| .target|
|00000bb0| 50 49 52 65 63 20 3b 0d | 09 53 74 72 32 35 35 20 |PIRec ;.|.Str255 |
|00000bc0| 09 09 09 09 74 61 72 67 | 65 74 4e 61 6d 65 20 3b |....targ|etName ;|
|00000bd0| 0d 09 4f 53 45 72 72 20 | 09 09 09 09 09 65 72 72 |..OSErr |.....err|
|00000be0| 20 3d 20 70 61 72 61 6d | 45 72 72 3b 0d 09 42 6f | = param|Err;..Bo|
|00000bf0| 6f 6c 65 61 6e 09 09 09 | 09 72 65 74 56 61 6c 20 |olean...|.retVal |
|00000c00| 3d 20 66 61 6c 73 65 20 | 3b 0d 09 0d 09 2f 2f 20 |= false |;....// |
|00000c10| 69 66 20 77 65 20 61 72 | 65 20 72 75 6e 6e 69 6e |if we ar|e runnin|
|00000c20| 67 20 77 65 20 77 61 6e | 74 20 74 68 65 20 50 53 |g we wan|t the PS|
|00000c30| 4e 20 61 6e 64 20 73 74 | 75 66 66 2c 0d 09 2f 2f |N and st|uff,..//|
|00000c40| 20 6f 74 68 65 72 77 69 | 73 65 20 77 65 20 6e 65 | otherwi|se we ne|
|00000c50| 65 64 20 74 6f 20 6c 61 | 75 6e 63 68 20 69 74 20 |ed to la|unch it |
|00000c60| 61 6e 64 20 67 65 74 20 | 74 68 65 20 69 6e 66 6f |and get |the info|
|00000c70| 72 6d 61 74 69 6f 6e 0d | 09 0d 09 69 66 28 21 49 |rmation.|...if(!I|
|00000c80| 73 41 70 70 52 75 6e 6e | 69 6e 67 28 20 27 41 50 |sAppRunn|ing( 'AP|
|00000c90| 50 4c 27 2c 0d 09 09 09 | 09 09 20 20 27 4d 4f 53 |PL',....|..  'MOS|
|00000ca0| 53 27 2c 0d 09 09 09 09 | 09 20 20 26 74 61 72 67 |S',.....|.  &targ|
|00000cb0| 65 74 50 53 4e 2c 20 0d | 09 09 09 09 09 20 20 26 |etPSN, .|.....  &|
|00000cc0| 74 61 72 67 65 74 50 49 | 52 65 63 2c 20 0d 09 09 |targetPI|Rec, ...|
|00000cd0| 09 09 09 20 20 74 61 72 | 67 65 74 4e 61 6d 65 20 |...  tar|getName |
|00000ce0| 29 20 29 0d 09 7b 0d 09 | 09 09 65 72 72 20 3d 20 |) )..{..|..err = |
|00000cf0| 4c 61 75 6e 63 68 41 70 | 70 28 20 27 4d 4f 53 53 |LaunchAp|p( 'MOSS|
|00000d00| 27 20 29 20 3b 0d 0d 09 | 09 09 69 66 28 20 65 72 |' ) ;...|..if( er|
|00000d10| 72 20 3d 3d 20 6e 6f 45 | 72 72 29 0d 09 09 09 09 |r == noE|rr).....|
|00000d20| 09 72 65 74 56 61 6c 20 | 3d 20 74 72 75 65 3b 0d |.retVal |= true;.|
|00000d30| 09 09 09 09 65 6c 73 65 | 0d 09 09 09 09 09 72 65 |....else|......re|
|00000d40| 74 56 61 6c 20 3d 20 66 | 61 6c 73 65 3b 0d 09 7d |tVal = f|alse;..}|
|00000d50| 20 65 6c 73 65 20 69 66 | 20 28 74 61 72 67 65 74 | else if| (target|
|00000d60| 50 49 52 65 63 2e 70 72 | 6f 63 65 73 73 53 69 67 |PIRec.pr|ocessSig|
|00000d70| 6e 61 74 75 72 65 20 3d | 3d 20 27 4d 4f 53 53 27 |nature =|= 'MOSS'|
|00000d80| 29 0d 09 09 72 65 74 56 | 61 6c 20 3d 20 74 72 75 |)...retV|al = tru|
|00000d90| 65 3b 0d 09 65 6c 73 65 | 20 0d 09 09 72 65 74 56 |e;..else| ...retV|
|00000da0| 61 6c 20 3d 20 66 61 6c | 73 65 20 3b 0d 0d 09 69 |al = fal|se ;...i|
|00000db0| 66 28 20 72 65 74 56 61 | 6c 20 3d 3d 20 74 72 75 |f( retVa|l == tru|
|00000dc0| 65 20 29 20 7b 0d 09 09 | 69 66 28 20 6f 70 65 6e |e ) {...|if( open|
|00000dd0| 65 64 20 3d 3d 20 66 61 | 6c 73 65 29 20 7b 09 2f |ed == fa|lse) {./|
|00000de0| 2f 20 79 6f 75 20 6f 6e | 6c 79 20 77 61 6e 74 20 |/ you on|ly want |
|00000df0| 74 6f 20 63 72 65 61 74 | 65 20 74 68 65 20 64 65 |to creat|e the de|
|00000e00| 73 63 72 69 70 74 6f 72 | 20 6f 6e 63 65 0d 09 09 |scriptor| once...|
|00000e10| 09 44 65 73 63 54 79 70 | 65 20 73 69 67 20 3d 20 |.DescTyp|e sig = |
|00000e20| 27 4d 4f 53 53 27 3b 0d | 09 09 09 0d 09 09 09 65 |'MOSS';.|.......e|
|00000e30| 72 72 20 3d 20 41 45 43 | 72 65 61 74 65 44 65 73 |rr = AEC|reateDes|
|00000e40| 63 20 28 74 79 70 65 41 | 70 70 6c 53 69 67 6e 61 |c (typeA|pplSigna|
|00000e50| 74 75 72 65 2c 20 28 50 | 74 72 29 20 26 73 69 67 |ture, (P|tr) &sig|
|00000e60| 2c 20 73 69 7a 65 6f 66 | 28 44 65 73 63 54 79 70 |, sizeof|(DescTyp|
|00000e70| 65 29 2c 20 26 74 68 65 | 41 64 64 72 65 73 73 44 |e), &the|AddressD|
|00000e80| 65 73 63 29 3b 0d 09 09 | 09 69 66 20 28 65 72 72 |esc);...|.if (err|
|00000e90| 20 21 3d 20 6e 6f 45 72 | 72 29 20 7b 0d 09 09 09 | != noEr|r) {....|
|00000ea0| 09 72 65 74 56 61 6c 20 | 3d 20 66 61 6c 73 65 3b |.retVal |= false;|
|00000eb0| 0d 09 09 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 09 |....} el|se {....|
|00000ec0| 09 6f 70 65 6e 65 64 20 | 3d 20 74 72 75 65 3b 0d |.opened |= true;.|
|00000ed0| 09 09 09 09 72 65 74 56 | 61 6c 20 3d 20 74 72 75 |....retV|al = tru|
|00000ee0| 65 3b 0d 09 09 09 7d 0d | 09 09 7d 0d 09 7d 20 65 |e;....}.|..}..} e|
|00000ef0| 6c 73 65 0d 09 09 72 65 | 74 56 61 6c 20 3d 20 66 |lse...re|tVal = f|
|00000f00| 61 6c 73 65 3b 0d 09 0d | 09 72 65 74 75 72 6e 20 |alse;...|.return |
|00000f10| 72 65 74 56 61 6c 20 3b | 0d 0d 7d 0d 0d 73 74 61 |retVal ;|..}..sta|
|00000f20| 74 69 63 20 42 6f 6f 6c | 65 61 6e 20 4f 70 65 6e |tic Bool|ean Open|
|00000f30| 4e 65 74 73 63 61 70 65 | 28 76 6f 69 64 29 20 0d |Netscape|(void) .|
|00000f40| 7b 0d 09 4f 53 45 72 72 | 20 65 72 72 20 3d 20 6e |{..OSErr| err = n|
|00000f50| 6f 45 72 72 3b 0d 0d 09 | 0d 09 69 66 20 28 21 6f |oErr;...|..if (!o|
|00000f60| 70 65 6e 65 64 29 20 7b | 0d 09 09 69 66 20 28 46 |pened) {|...if (F|
|00000f70| 69 6e 64 5f 4e 65 74 53 | 63 61 70 65 28 29 20 3d |ind_NetS|cape() =|
|00000f80| 3d 20 66 61 6c 73 65 29 | 0d 09 09 09 72 65 74 75 |= false)|....retu|
|00000f90| 72 6e 20 66 61 6c 73 65 | 3b 0d 09 09 0d 09 09 7b |rn false|;......{|
|00000fa0| 0d 09 09 09 44 65 73 63 | 54 79 70 65 20 73 69 67 |....Desc|Type sig|
|00000fb0| 20 3d 20 27 4d 4f 53 53 | 27 3b 0d 09 0d 09 09 09 | = 'MOSS|';......|
|00000fc0| 65 72 72 20 3d 20 41 45 | 43 72 65 61 74 65 44 65 |err = AE|CreateDe|
|00000fd0| 73 63 20 28 74 79 70 65 | 41 70 70 6c 53 69 67 6e |sc (type|ApplSign|
|00000fe0| 61 74 75 72 65 2c 20 28 | 50 74 72 29 20 26 73 69 |ature, (|Ptr) &si|
|00000ff0| 67 2c 20 73 69 7a 65 6f | 66 28 44 65 73 63 54 79 |g, sizeo|f(DescTy|
|00001000| 70 65 29 2c 20 26 74 68 | 65 41 64 64 72 65 73 73 |pe), &th|eAddress|
|00001010| 44 65 73 63 29 3b 0d 09 | 09 09 69 66 20 28 65 72 |Desc);..|..if (er|
|00001020| 72 20 3d 3d 20 6e 6f 45 | 72 72 29 0d 09 09 09 09 |r == noE|rr).....|
|00001030| 6f 70 65 6e 65 64 20 3d | 20 74 72 75 65 3b 0d 09 |opened =| true;..|
|00001040| 09 09 65 6c 73 65 0d 09 | 09 09 09 72 65 74 75 72 |..else..|...retur|
|00001050| 6e 20 66 61 6c 73 65 3b | 0d 09 09 7d 0d 09 7d 0d |n false;|...}..}.|
|00001060| 09 0d 09 72 65 74 75 72 | 6e 20 74 72 75 65 3b 0d |...retur|n true;.|
|00001070| 7d 0d 0d 73 74 61 74 69 | 63 20 4f 53 45 72 72 20 |}..stati|c OSErr |
|00001080| 43 6c 6f 73 65 4e 65 74 | 73 63 61 70 65 28 76 6f |CloseNet|scape(vo|
|00001090| 69 64 29 0d 7b 0d 09 72 | 65 74 75 72 6e 20 41 45 |id).{..r|eturn AE|
|000010a0| 44 69 73 70 6f 73 65 44 | 65 73 63 20 28 26 74 68 |DisposeD|esc (&th|
|000010b0| 65 41 64 64 72 65 73 73 | 44 65 73 63 29 3b 0d 7d |eAddress|Desc);.}|
|000010c0| 0d 09 0d 73 74 61 74 69 | 63 20 76 6f 69 64 20 41 |...stati|c void A|
|000010d0| 63 74 69 76 61 74 65 4e | 65 74 53 63 61 70 65 28 |ctivateN|etScape(|
|000010e0| 76 6f 69 64 29 0d 7b 0d | 09 41 70 70 6c 65 45 76 |void).{.|.AppleEv|
|000010f0| 65 6e 74 09 74 68 65 41 | 70 70 6c 65 45 76 65 6e |ent.theA|ppleEven|
|00001100| 74 2c 20 74 68 65 52 65 | 70 6c 79 3b 0d 09 4f 53 |t, theRe|ply;..OS|
|00001110| 45 72 72 09 09 65 72 72 | 3b 0d 0d 09 69 66 20 28 |Err..err|;...if (|
|00001120| 46 69 6e 64 5f 4e 65 74 | 53 63 61 70 65 28 29 20 |Find_Net|Scape() |
|00001130| 3d 3d 20 66 61 6c 73 65 | 29 0d 09 09 72 65 74 75 |== false|)...retu|
|00001140| 72 6e 3b 0d 0d 09 65 72 | 72 20 3d 20 41 45 43 72 |rn;...er|r = AECr|
|00001150| 65 61 74 65 41 70 70 6c | 65 45 76 65 6e 74 28 27 |eateAppl|eEvent('|
|00001160| 57 57 57 21 27 2c 27 41 | 43 54 56 27 2c 26 74 68 |WWW!','A|CTV',&th|
|00001170| 65 41 64 64 72 65 73 73 | 44 65 73 63 2c 0d 09 09 |eAddress|Desc,...|
|00001180| 09 09 6b 41 75 74 6f 47 | 65 6e 65 72 61 74 65 52 |..kAutoG|enerateR|
|00001190| 65 74 75 72 6e 49 44 2c | 20 6b 41 6e 79 54 72 61 |eturnID,| kAnyTra|
|000011a0| 6e 73 61 63 74 69 6f 6e | 49 44 2c 26 74 68 65 41 |nsaction|ID,&theA|
|000011b0| 70 70 6c 65 45 76 65 6e | 74 29 3b 0d 09 0d 09 65 |ppleEven|t);....e|
|000011c0| 72 72 20 3d 20 41 45 53 | 65 6e 64 28 26 74 68 65 |rr = AES|end(&the|
|000011d0| 41 70 70 6c 65 45 76 65 | 6e 74 2c 20 26 74 68 65 |AppleEve|nt, &the|
|000011e0| 52 65 70 6c 79 2c 20 6b | 41 45 57 61 69 74 52 65 |Reply, k|AEWaitRe|
|000011f0| 70 6c 79 2c 6b 41 45 4e | 6f 72 6d 61 6c 50 72 69 |ply,kAEN|ormalPri|
|00001200| 6f 72 69 74 79 2c 20 6b | 4e 6f 54 69 6d 65 4f 75 |ority, k|NoTimeOu|
|00001210| 74 2c 20 6e 69 6c 2c 20 | 6e 69 6c 29 3b 0d 0d 7d |t, nil, |nil);..}|
|00001220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001280| 00 00 01 00 00 00 01 74 | 00 00 00 74 00 00 00 52 |.......t|...t...R|
|00001290| 00 20 6e 00 08 21 6e 00 | 0c 00 44 4e 5e 4e 75 4e |. n..!n.|..DN^NuN|
|000012a0| 56 00 00 20 6e 00 08 21 | 6e 00 0c 00 48 4e 5e 4e |V.. n..!|n...HN^N|
|000012b0| 0e 4e 65 74 73 63 61 70 | 65 4c 69 6e 6b 2e 63 4c |.Netscap|eLink.cL|
|000012c0| 02 00 00 00 54 45 58 54 | 43 57 49 45 01 00 00 00 |....TEXT|CWIE....|
|000012d0| 00 00 54 45 58 54 43 57 | 49 45 01 00 00 00 2e c0 |..TEXTCW|IE......|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 ac c6 43 06 00 00 | 11 a0 00 00 01 c6 68 4e |....C...|......hN|
|00001300| 5e 4e 75 4e 56 00 00 20 | 6e 00 0c 22 6e 00 08 43 |^NuNV.. |n.."n..C|
|00001310| e9 00 20 22 d8 22 d8 22 | d8 22 d8 4e 5e 4e 75 4e |.. "."."|.".N^NuN|
|00001320| 56 00 00 20 6e 00 08 31 | 6e 00 0e 00 34 4e 5e 4e |V.. n..1|n...4N^N|
|00001330| 75 4e 56 00 00 20 6e 00 | 08 21 6e 00 0c 00 48 4e |uNV.. n.|.!n...HN|
|00001340| 5e 4e 75 4e 56 00 00 20 | 6e 00 08 21 6e 00 0c 00 |^NuNV.. |n..!n...|
|00001350| 4c 4e 5e 4e 75 4e 56 00 | 00 20 6e 00 08 21 6e 00 |LN^NuNV.|. n..!n.|
|00001360| 0c 00 50 4e 5e 4e 75 4e | 56 00 00 20 6e 00 0c 22 |..PN^NuN|V.. n.."|
|00001370| 6e 00 08 43 e9 00 54 22 | d8 22 d8 22 d8 22 d8 4e |n..C..T"|.".".".N|
|00001380| 00 00 00 1c 01 01 ff ff | ff ff ff ff 00 00 08 20 |........|....... |
|00001390| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013a0| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013c0| 00 00 00 00 00 00 00 03 | 00 04 00 3e 00 04 01 cd |........|...>....|
|000013d0| 02 63 00 3e 00 04 01 cd | 02 63 ad 7c 6b 98 00 00 |.c.>....|.c.|k...|
|000013e0| 0a cc 00 00 0a cc 00 00 | 08 d6 01 00 00 00 00 04 |........|........|
|000013f0| 00 01 00 01 00 00 01 00 | 00 00 01 74 00 00 00 74 |........|...t...t|
|00001400| 00 00 00 52 01 94 55 34 | 17 e0 00 00 00 1c 00 52 |...R..U4|.......R|
|00001410| 00 01 4d 50 53 52 00 01 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00001420| 00 2a 27 10 ff ff 00 00 | 00 00 00 00 00 00 03 ed |.*'.....|........|
|00001430| ff ff 00 00 00 20 00 00 | 00 00 03 f0 ff ff 00 00 |..... ..|........|
|00001440| 00 6c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.l......|........|
|00001450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+